unit runtimetester;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, myParameters, StdCtrls, ExtCtrls, ComCtrls, Buttons, Grids, DBGrids,
  ActnList, ActnCtrls, ToolWin, ActnMan, ActnMenus, XPStyleActnCtrls;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    ActionManager1: TActionManager;
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionToolBar1: TActionToolBar;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    procedure Action1Execute(Sender: TObject);
  private
    { Private declarations }
    FmyParameters: TmyParameters;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Action1Execute(Sender: TObject);
begin
  TForm2.Create(Application);
end;

end.
